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Sep-1984 23:02:00 VAX=11 BL iss-32_v4.0-742 Page 1 
ts ay g3igciee — SS5SSDUAZBSCEDT-SRCITRACEMAC.REQ:1 (1), 


VPRO RAAeA EAA AAAAAEAAAAAEAAERAAAAAAAAAEHETHERERAEEEREEAAAAAAEAETEAARAAAEAAEAES 
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wn 
ee 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B . 
ie DIGITAL EQUIPMENT CORPORATION, AAYNARD. MASSACHUSETTS. ‘ 
5 is ALL RIGHTS RESERVED. ‘ 
ie THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
ie ONLY IN ACCORD ANCE WITH THE TERMS OF such LICEN NSE AND wsTH THE 
ie INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS soft ARE OR OTHER * 
1 ie COPIES THEREOF may NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
1 ie OTHER PERSON. rit LE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
is TRANSFERRED. : 
1 ie THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE ®* 
1 ie SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
te CORPORATION. . 

4 ® 
1 i@ DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
1 ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. e 

 cenensebeoeseoneebanengesernsebecasnsensensensnenosnenenensecnsedensenitense 


'¢ 


This file, TRACEMAC.REQ, holds the SSTRACE and SSTRACE_READ macros for EDT. 


DEUS OBNOVE UN OOBNOAE WN O 
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Se Be Se Se Ge Be Se Se Ge Se Ge Fe Ge Ge Se Se Ge Se Se Ge Se Se Se Se Fe Se Ge Fe Se Ge Ge Ge Fe Fe Ge Se Se Se Ge Se Se Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge 
Be Oe Se Be Se Be Se Se Se Se Se Se Se Be Ge Se Se Se Se Be Se Se Oe Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se Se Se Se Se ae ee Ge Se ae 


i <BLF /macro> 
CRO 

® SSTRACE (TYPE, SUBTYPE, TEXT_LENGTH, TEXT ADDR) = 
z %BL1ISS32 
# RIF EDTSSTR_ACT 
* ZTHEN ! Only if selected 
. BEGIN 
* LOCAL 
: TRACE_STATUS; 
4 0 aie; ROUTINE 
: 1 EDTSSTR_WR : ADDRESSING_MODE (GENERAL); 
La} Q TRACELIT; Define trace Literals 
: 4 TRACE “STATUS = EDTSSTR_WR (TYPE, SUBTYPE. TEXT_LENGTH, TEXT ADDR); 
o 6 If ( NOT .TRACE_STATUS) THEN SIGNAL_STOP (.TRACE_STATUS); 
i.) 3 END 
La) ZF I 
Oost 14, 
” 6 borne 1eé4 {TVPE. SUBTYPE, BUFFER_LENGTH, BUFFER ADDR rest LEN) = 
a 33 ! Only~on VAX=1 
fal 36 ZIF EDTSSTR_ACT 
'. 2$ THEN ! Only if selected 
® 005 BEGIN 


| 
| 
' Only on VAX-11 
| 
| 
| 


1$-$ep-1984 g3iteien «=| “SSsss pOAse ceor’ SacI TRACEMAC.REQ;1 (15 


LOCA 
TRACE STATUS; 


exten, Ov 
EDTSSTR URN : ADDRESSING_MODE (GENERAL); 
TRACELIT; ! Define trace literals 


o_o 

EDTSSL_TR_INFLG : ADDRESSING_MODE (GENERAL); 
IF ( NOT .EDTSSL_TR_INFLG) 

THEN 


ELSE 
BEGIN 
TRACE_STATUS = EDTSSTR_RD (TYPE, SUBTYPE, BUFFER_LENGTH, BUFFER_ADDR, TEXT_LEN); 
IF ( NOT .TRACE_STATUS) THEN SIGNAL_STOP (.TRACE_STATUS); 


1 
END 
END 
ZELS 
<FI 
) x, 
SSTRACE_READING (ACTION) = 
xBLTSS32 C ! Only on VAX-11 
ZIF EDTSSTR_ACT 


EN 
BEGIN 


EXTERNA 
EDTSSL. TR_INFLG : ADDRESSING_MODE (GENERAL); 


IF .EDTSSL_TR_INFLG THEN ZREMOVE (ACTION) 


! Only if selected 


1ELSE 

2FI 

) %; 

REQUIRE ‘EDTSRC: TRACELIT.REQ'; ! Define macro TRACELIT | 
| 
| 
| 


15-eo-1984 33:02:88 | MSSsSs ponsastebr  SacarRaceLit.rea;1 °% «13 
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SSR ReR RARER ARAAAAAAAAAAAAAAEAREAAERERAAA ARETE A ARE AA ETAT AAE EAE RAAAAAAAR ATED 
'® 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS fo te is cent ence unet A LICENSE AND MAY BE USED AND COPIE 
'® ONLY IN on be" ANCE WITH THE jen MS OF SUCH LICENSE AND WITH TH 
; SION R OFTWARE OR ANY OTH 


. 
a 
> 
* 
* 
~ 
* 
* 
’ 

. Stor * 
'e OTHER PERSON. NO. TITLE TO AND OWN OWNERSHIP OF THE SOFTWARE IS HEREBY ; 
+ 
* 
* 
* 
* 
® 
* 
* 
* 
* 


Od ed ad dd 
Mm 
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'e TRANSFERRED. 


ane 

; 3 1 '® THE ok oy pl IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 

3 8 ¢ '‘® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 

; st Z :* CORPORATION. 

; :@ 

; RO125 '® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

; st $ A SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

. le 

: 4 ; i eeeeeerereereeeeteeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeedeeeeeeeeeeeeeenes 

3; RO} 

3 kRO1351 O 

3; =6ROI 4 8 i “this file, TRACELIT.REQ, contains the Literals for trace record types and 

; Ht : subtypes. | 
a as 
3; ROSS g | 
; RO} 8 MACRO 

3 sad 8 0 TRACELIT = 

; MROI39 0 

; MROIGO 0 LITERAL 

; MRO141 EDTSSTR_START = 1 : Stertup 

> MROIG EDTSSTR-SSTART_INIT = 1, First record in file 

3 MROIG EDTSSTR_SSTART_TERM = 2, i Terminal type 

3 MROI1G4 EDTSS$TR_COM = 2, ' Command Line 

3 MROI14S EDTSSTR_SCOM_INP = 1, ! Input file name 

3 MRO1G EDTSSTR_SCOM_OUT = ¢ ' Output file name 

3 MROI1G EDTSSTR_SCOM_CMD = 35, ! Command file name 
3 MROI14 EDTSSTR_SCOM_JOU = 4, ! Journal file name | 
3 MROIG EDTSSTR_SCOM_SW_JOU = 5, ! Value of /JOURNAL switch 

3 ™RO150 EDTSSTR_SCOM_SW_CMD = . ' Value of /COMMAND switch 
: mRO151 EDTSSTR_SCOM_SW_REC = 7, ' Value of /RECOVER switch 
; MRO § EDTSSTR_SCOM_SW_REA = 8, ! /READ switch seen 

; MROI EDTSSTR_KEY “= 3 ' Keyboard input 

> MRO154 EDTSSTR-SK_PROMPT = 1, i Prompt string 

3 155 EDTSSTR_SK_LN = ! Line read. ys ng Gn 

> MR 136 EDTSSTR_SK-STS = $, $ ST fren that seed 

3; mROI gb LI Saal = 4, tine Seratgoter not ,oghoes 

3 mn 28 EDTSSTR_SK_CH = 5, : Characters read using Q{0, with echo 

3 MROI5 EDTSSTR_SK_CH_NE = 6, ! Cha An geet & eves using Q10, no echo 

3 ™RO160 EDTSSTR_SCR = 4, i Screen gutp 

3 MRO161 EDTSSTR_SSCR_LN = 1, ' Line pr sy sing RMS 

3 MR 106 EDTSSTR_SSCR_CH_ = 2, i Characters printed using Q10 

3 MROI6 EDTSSTR_IFO = 5, i Input file open 

3 MRO164 EDTSSTR_SIFO_FNAM = 1, i Fi e name 
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End of file TRACELIT.REQ 


Sep-1984 23:02:00  VAX-11 Bliss-32 Vv 
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0556 3 : End of file TRACEMAC.REQ 


COMMAND QUALIFIERS 
BLISS/LIBRARY=EDTSRC: TRACEMAC/LIST=LIS$:/SOURCE=REQUIRE SRCS$: TRACEMAC 


Time 00:01.9 
the Time: ag :05.0 
Lines/CPU Min: O86 
Lexemes/CPU-Min: 185 
Memory Used: 17 page s 
i torery Precompilation Complete 
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